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INTRODUCTION 

This manual describes the Burroughs B 2500/B 3500 COBOL Cross- 
Reference Utility System which utilizes the Burroughs technique of 
cross-referencing COBOL source programs written for the B 2^00/ 
B 3500 Systems. 

COBOL programs are normally very lengthy due to the inherent nature 
of the language itself. They normally contain data elements by the 
hundreds , plus containing many procedure-names , thus causing time 
consuming manual perusal effort when a programmer is required to 
make a simple change in a program. A single programmatic change in 
the source language may affect many areas of a program with the 
possibility that an affected area will be far removed from that 
which was immediately changed and in turn can be easily missed by 
the most experienced programmer. The Cross-Ref erence Utility System 
allows a programmer to find all areas that a change will affect , at 
a glance. 

Cross-referencing speeds reflected in tests of typical COBOL pro- 
grams are exceptionally fast and provide all B 2500/B 3500 users 
with a documentation tool of great value, at a very small operational 
cost . 

The three programs involved with the system are available to B 2500/ 
B 3500 users commencing on the ASR #1 systems release as CBXRIN , 
CBXSRT , and CBXLST . 

The Burroughs Corporation takes pride in providing this system as a 
continuing effort to offer the user aids in reducing COBOL program 
maintenance expenditures through readily usable documentation facil- 
ities. 
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SECTION 1 
SYSTEM DESCRIPTION 

The B 2500/B 3500 COBOL Cross-Ref erencing Utility System consists 
of three programs (see figure l-l): 

a. CBXRIN. The first program, CBXRIN, uses a COBOL source 
program as input and produces a disk file as output. The 
disk file output is used as input to the second (sort) 
program. CBXRIN also creates a listing of the input 
source program, if desired. 

b. CBXSRT. The second program, CBXSRT , is a disk sort program 
designed to arrange all output records from the first pro- 
gram into a usable sequence as input to the third program. 

c. CBXLST. The third program, CBXLST , formats the sorted data 
from the second program and produces a COBOL cross-reference 
listing of the original source language program. 

The B 2500/B 3500 COBOL Cross-Ref erence Utility System will operate 
on all B 2500/B 3500 Advanced Systems. The peripheral configuration 
required is : 

a. One card reader. 

b. One magnetic tape unit (if input 
source program is on a SOLT tape). 

c. One printer (8 lines per inch). 

d. One disk module. 
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Figure 1-1. 



B 2500/B 3500 COBOL Cross-Reference 

Utility System Flow 
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SECTION 2 
COBOL CROSS-REFERENCE INPUT CONTROL 

The first program (CBXRIN) uses a syntactically correct COBOL 
source program as input. The source program to be cross-referenced 
can be read from either punched cards or magnetic tape (SOLT). 

The control cards necessary for execution of the first program are: 



? execute cbxrin 
? data source ) 
? datab source ) 
[card] 

f CDLIST 1 

[tape] 

[tplist] 

[listcd] 

r LISTTP 1 



Source language input options, 



Input/output options. 



All control card data starts in card column one. 

The EXECUTE control card notifies the MCP to call the first program 
(CBXRIN) from the disk library. 

The second control card is the MCP Label Card. 

a. ? DATA SOURCE indicates EBCDIC Source Language Input. 

b. ? DATAB SOURCE indicates BCL Source Language Input. 

Input/Output options which can be specified are as follows. If one 
of the listed options is not used, the CARD option will be assumed. 

a. CARD. The CARD option indicates that the input source 

program is in punched card form and that cross-referencing 
is desired. 



b, 



CDLST . The CDLST option indicates that the input source 
program is in punched card form and that a listing of the 
input program (see figure 2-l) is desired along with a 
cross-reference of the program. 
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c « TAPE . The TAPE option indicates that the input source 
program is on magnetic tape with a label of "SOLT" and 
that cross-referencing is desired. 

d. TPLIST . The TPLIST option indicates that the input source 
program is on magnetic tape with a label of SOLT and that 
a listing of the input program is desired along with a 
cross-reference of the program. 

e. LISTCD. The LISTGD option indicates that the input source 
program is in card form and that an 80/80 listing is 
desired of the program without accomplishing a cross- 
reference . 

f. LISTTP . The LISTTP option indicates that the input source 
program is on magnetic SOLT tape and that an 80/80 listing 
is desired of the program without accomplishing a cross- 
reference. 

The second program of the system, CBXSRT , is scheduled automatically 
and executed at completion of the first program requiring options 
a, b, c, or d above , by a ZIP function within the first program. 

The output disk file from the first program is labeled SORTS. 
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000100 
000200 
000300 
000400 
000500 
000600 
000700 
000800 
000900 
001000 
001100 
001200 
001300 
001400 
001500 
001600 
001600 
001700 
001800 

001900 
002000 
002100 
002200 
002300 
002400 
002500 
002600 
002700 
002710 
002800 
002900 
003000 
003100 
003200 
003300 
003400 
003500 
003700 
003900 
004000 



■0 ASSIGN TO DISK, 



RECORDS OF DISK-I-0 
FOR DISK-I-0 DISK-O-I. 



ID IS "B-3500", 
X(6). 



IDENTIFICATION DIVISION, 
PROGRAM-ID. COBOL CROSS REFERENCE. 
AUTHOR. BURROUGHS CORP. 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT DISK-I- 
I-0-CONTROL. 

RERUN EVERY 9999 

SAME RECORD AREA 
DATA DIVISION. 
FILE SECTION. 
FD DISK-I-0 VALUE OF 
01 DISK1, 

03 CONTROL-CD PC 

03 CODE-1 PC X(6), 

03 CODE-1 PC XC6), 

03 CODE-2 PC XC80). 
WORKING-STORAGE SECTION, 
01 HELLO COPY "HELLO". 
PROCEDURE DIVISION, 
BEGIN SECTION. 
START, 

OPEN INPUT/OUTPUT DISK-I-0. 

READ DISK-I-0. 

WRITE DISK1. 

MOVE CONTROL-CD TO CODE-2 CODE-1, 

MOVE CODE-1 TO CODE-2 CONTROL-CD, 
COPIED SECTION 50. 

COPY "YOUALL". 

MOVE SW1 TO SW2 SW3 SW5, 

MOVE SW4 TO CODE-1 SW1 SW2 SW3, 

MOVE SW6 TO SW4 CODE-2. 

MOVE TODAYS-DATE TO CONTROL-CD. 

MOVE TIME TO CODE-2 

MOVE DATE TO CODE-2. 

MOVE TALLY TO CODE-2, 

MOVE CODE-2 TO CODE-1. WRITE DISK1, 

CLOSE DISK-I-0 WITH LOCK, 

MOVE HELLO TO TODAYS-DATE TIME TALLY DATE. 



Figure 2-1. 



Sample Listing of Input 
Program to CBXRIN 
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SECTION 3 
DISK SORT PROGRAM 

The disk sort program (CBXSRT) is scheduled and executed without 
operator intervention by a ZIP from the first program. 

CBXSRT is a sort program which uses the disk file output from the 
first program as input to be sorted. 

The output from this sort program is written to a disk file labeled 
as SORTED. 

The third program in the utility system (CBXLST) is scheduled auto- 
matically and executed at completion of the sort by a ZIP function 
within the sort program. 
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SECTION 4 
CROSS-REFERENCE LISTING 

The third program in the utility system (CBXLST) is scheduled and 
executed without operator intervention. 

The input to this program is a disk file labeled SORTED from the 
second program. 

The output is the cross-reference listing of the COBOL source pro- 
gram used as input to the first program. See figure 4-1 as an 
exampl e list ing . 

The listing consists of the following: 

a. PILE- CONTROL information. 

1) File-name. 

2) Hardware assignments. 

3) OPEN status. 

4) FILE ID. 

5) Lines OPEN on. 

6) Lines CLOSE on. 

7) Lines read on (if applicable). 

8) Lines written on (if applicable). 

9) Number of records for RERUN. 

10) RECORDING MODE. 

11) File-name of files sharing SAME- AREA. 

b. Data-names referenced by line number. 

1) Line number data-name defined on. 

2) Line numbers data-name referenced on. 

3) Library file-name to be copied into program and line 
number of copy statement. 

c. Internal Program Switches. 

1) Line number of the first switch usage in the program. 

2) Switch-name. 

3) Line numbers of additional switch usage. 
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COBOL CROSS REFERENCE 



PROGRAM 101 COBOL CROSS REFERENCE. 



DATE 03/17/68 



AUTHORS BURROUGHS COUP, 



TILE NAME 



FILE DESCRIPTIONS 



HISK-I-O 



ASSIGNED TO DISK 

3PENE0 ON LINE 002300 

CLOSED ON LINE 003900 

HEAD ON LINES 002400 

HHITTEN ON LINES 

HERUN EVERY 9999 

UECORD AREA SHARE WITH DISk-O-I 

UEC0R0IN6 NODE STANDARD 



AS INPUT/OUTPUT VALUE OF 10 IS "B-3500". 



002500 003700 
RECORDS 



DEFINED 

001600 

001700 

001800 

002710 

001 400 

001500 

001900 

HELLO 

I'OUALL 



DATA-NAME 

CODE-1 

CODE-1 

COOE-2 

COPTEO SECTION 50 

OISK-I-0 

0ISK1 

HELLO 

COPIED FROM LIBRARY ON LINE 

COPIED FROM LIBRARY ON LINE 



REFERENCED 

THIS DATA-NAME DEFINED MORE THAN ONCE 
002600 002700 003000 003700 
002600 002700 003100 
NO OTHER REFERENCE 
000800 001000 002300 
003700 



003300 003100 003500 003700 



002400 003900 



002500 
004000 
001900 
002800 

INTERNAL PROGRAM SWITCHES 



002900 


SHI 


002900 


SH2 


002900 


SH3 


003000 


SW4 


002900 


SM5 


003100 


SH6 


003400 


DATE 


003500 


TALLY 


003 300 


TIME 


003200 


TODAYS-DATE 



003000 
003000 
003000 
003100 



SPECIAL REGISTERS 



004000 
004000 
004000 
004000 



Figure k-1. Sample Cross-Reference Listing 



d. Special Registers. 

l) Line number that each special register is used on. 
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BURROUGHS CORPORATION 

DATA PROCESSING PUBLICATIONS 

REMARKS FORM 



TITLE: FORM: 

DATE: 



check type of suggestion: 
Daddition Qdeletion Drevision Qerror 



CD 

c 



£ 
o 

c 
o 



D 





GENERAL COMMENTS AND/OR SUGGESTIONS FOR IMPROVEMENT OF PUBLICATION: 



FROM: NAME . DATE 

TITLE 

COMPANY 

ADDRESS 



STAPLE 



FOLD DOWN 



SECOND 



FOLD DOWN 
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